home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / HyperTalk / Stack Starter ß.976 / Stack Starter fl.976 / background_3986.txt < prev    next >
Encoding:
Text File  |  1988-08-03  |  1.2 KB  |  50 lines
  1. -- background: 3986 from stack: in.976
  2. -- bmap block id: 11221
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   hide message box
  9.   show menuBar
  10.   pass openStack
  11. end openStack
  12.  
  13. on mouseEnter
  14.   global TargetEnter, NewBtn, NewBtnid, NewBtnN
  15.   if TargetEnter <> empty then
  16.     wait 60
  17.     put the short name of the target into NewBtn
  18.     put the target into NewBtnN
  19.     put the id of the target into NewBtnid
  20.     put "Change font of " & NewBtnN
  21.     if word 2 of NewBtnN <> "Button" then exit mouseEnter
  22.     if word 2 of NewBtn is "Button" then
  23.       ask "This Button needs a name." with "Please, type name here."
  24.       if it is empty then exit mouseEnter
  25.       set name of NewBtnN to it
  26.       put it into NewBtn
  27.     end if
  28.     answer "Change font of " & NewBtnN with "Cancel" or "OK"
  29.     if it is "Cancel" then exit mouseEnter
  30.     put empty into TargetEnter
  31.     hide msg
  32.     iconCheck
  33.   end if
  34. end mouseEnter
  35.  
  36.  
  37.  
  38. -- part 6 (field)
  39. -- low flags: 00
  40. -- high flags: 0000
  41. -- rect: left=180 top=34 right=64 bottom=317
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 16
  46. -- text size: 18
  47. -- style flags: 0
  48. -- line height: 24
  49. -- part name: 
  50.